home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / maxime.dxr / 00121.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  856 b   |  37 lines
  1. on exitFrame
  2.   global sprpos, Aframe
  3.   if rollOver(5) then
  4.     set Aframe to the frame
  5.     go("naveg")
  6.   end if
  7.   put sprpos
  8.   if sprpos = 1 then
  9.     set the visible of sprite 3 to 0
  10.     set the visible of sprite 2 to 1
  11.     set sprpos to 2
  12.   else
  13.     if sprpos = 2 then
  14.       set the visible of sprite 3 to 1
  15.       set the visible of sprite 2 to 0
  16.       set sprpos to 3
  17.     else
  18.       if sprpos = 3 then
  19.         set the visible of sprite 3 to 0
  20.         set the visible of sprite 2 to 1
  21.         set sprpos to 4
  22.       else
  23.         if sprpos = 4 then
  24.           set the locH of sprite 2 to the locH of sprite 2 - 45
  25.           if the locH of sprite 2 <= -176 then
  26.             puppetSprite(2, 0)
  27.             puppetSprite(3, 0)
  28.             puppetSprite(4, 0)
  29.             go(95)
  30.           end if
  31.         end if
  32.       end if
  33.     end if
  34.   end if
  35.   go(the frame)
  36. end
  37.